﻿Option Explicit On
Option Strict On

Imports System.Threading
Imports Gadgeteer

'  Original Gadgeteer framework Copyright (c) Microsoft Corporation. (http://gadgeteer.codeplex.com/)
'  
'  Gadgeteer Light made by Stefan Thoolen (http://gadgeteerlight.codeplex.com/)
'
'  Licensed under the Apache License, Version 2.0 (the "License");
'  you may not use this file except in compliance with the License.
'  You may obtain a copy of the License at
'
'      http://www.apache.org/licenses/LICENSE-2.0
'
'  Unless required by applicable law or agreed to in writing, software
'  distributed under the License is distributed on an "AS IS" BASIS,
'  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'  See the License for the specific language governing permissions and
'  limitations under the License.
Namespace Sytech_Designs_Button

    Public Module Module1

        Dim WithEvents LedButton As Gadgeteer.Modules.Sytech.Button

        Sub Main()
            Dim socket As Integer = 1

            LedButton = New Gadgeteer.Modules.Sytech.Button(socket)

            Thread.Sleep(Timeout.Infinite)
        End Sub

        Private Sub LedButton_ButtonPressed(sender As Gadgeteer.Modules.Sytech.Button, state As Gadgeteer.Modules.Sytech.Button.ButtonState) Handles LedButton.ButtonPressed
            LedButton.TurnLEDOn()
        End Sub

        Private Sub LedButton_ButtonReleased(sender As Gadgeteer.Modules.Sytech.Button, state As Gadgeteer.Modules.Sytech.Button.ButtonState) Handles LedButton.ButtonReleased
            LedButton.TurnLEDOff()
        End Sub
    End Module

End Namespace